Pi=3.14159
G=9.81

SCREEN 1,640,512,1,4
WINDOW 5,"s_Wurf",,16,1
PALETTE 0,0,0,0
PALETTE 1,0,1,0

WHILE 1
  CLS
  PRINT " Schiefer Wurf"
  PRINT "==============="
  PRINT 
  INPUT "Winkel ab    ";Aa
  INPUT "      bis    ";Ae
  INPUT "Schrittweite ";Sw
  INPUT "v0 [m/s]     ";V0
  INPUT "Starthöhe [m]";Sh
  INPUT "Sekunden [s] ";Sec
  INPUT "Streckfaktor ";XStreckung
  CLS
  FOR a=Aa TO Ae STEP Sw
      LOCATE 1,1
      PRINT "Winkel : ";
      PRINT USING "###.##";a;
      PRINT "°",
      Al=a*Pi/180
      Vx0=V0*COS(Al)
      Vy0=V0*SIN(Al)
      X=0
      Malen:
          Streckung=640/Sec
          T=X*Sec/640
          S=Sh+Vy0*T-(1/2)*G*T^2
          Y=512-XStreckung*S
          Sx=T*Vx0
          IF X=0 THEN
              Xa=Streckung*Sx
              Ya=Y
          END IF
          LINE (Xa,Ya)-(Streckung*Sx,Y),1
          Xa=Streckung*Sx
          Ya=Y
          X=X+1
      IF Y<=512 THEN Malen
  NEXT a
  LOCATE 1,1
  PRINT "Ende. Taste drücken !"
  WHILE INKEY$=""
  WEND
WEND